home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
013a
/
dmplas11.zip
/
DLTEST-6.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-11-16
|
2KB
|
33 lines
10 FILE$="DLTEST-6.PRN"
20 PRINT CRLF$:PRINT " Creating ";FILE$;" - Please wait ";
30 OPEN "O",#1,FILE$
40 CR$=CHR$(13) :LF$=CHR$(10) :CRLF$=CR$+LF$ :ESC$=CHR$(27) :T$=CHR$(9)
50 UNDON$=ESC$+"-1" :UNDOFF$=ESC$+"-0"
60 R$="L...5....1....5....2....5....3....5....4....5....5....5....6....5....7....5"
70 S$="L...5....1....5....2....5....3....5....4....5....5....5....6....5....7....5....8....5....9....5....*....5....1....5....2....5"
80 GOTO 300
90 PRINT#1,"L";:FOR A=1 TO N:PRINT#1,T$;"!";:NEXT A:PRINT#1,CRLF$;:RETURN
91 PRINT#1,"ONE";T$;"TWO";T$;"THREE";T$;"FOUR";T$;"FIVE";
92 PRINT#1,T$;"SIX";T$;"SEVEN";T$;"EIGHT";T$;"NINE";T$;"TEN";:RETURN
93 PRINT#1,T$;"ELEVEN";T$;"TWELVE";T$;"[13]";T$;"[14]";T$;"[15]";: RETURN
100 GOSUB 90:FOR A=1 TO 3 :GOSUB 91 :PRINT#1,CRLF$;:NEXT A : PRINT#1,CRLF$;: RETURN
110 GOSUB 90:FOR A=1 TO 3 :GOSUB 91:GOSUB 93:PRINT#1,CRLF$;:NEXT A:PRINT#1,CRLF$;:RETURN
300 PRINT#1,ESC$;"@";" DLTEST-6 Horizontal Tab Commands and Backspace";CRLF$
310 PRINT#1,"Default tabs are set by ESC '@' at every 8 columns "
320 PRINT#1,R$ :N=9:GOSUB 100
330 PRINT#1,CHR$(15);S$:N=14:GOSUB 110
340 PRINT#1,CHR$(18);"Tabs are set by ESC 'e0' 5 at every 5 columns"
350 PRINT#1,ESC$;"e0";CHR$(5);R$ :N=12:GOSUB 100
360 PRINT#1,CHR$(15);S$ :N=21:GOSUB 110
400 PRINT#1,CHR$(18);"Tabs set by ESC 'D' 5 12 23 36 50 56 0"
410 PRINT#1,ESC$;"D";CHR$(5);CHR$(12);CHR$(23);CHR$(36);CHR$(50);CHR$(56);CHR$(0);
420 PRINT#1,R$ :N=9:GOSUB 100
430 PRINT#1,CHR$(15);S$ :GOSUB 110
440 PRINT#1,CHR$(18);"BS(08h) can be used to create special symbols by overprinting.
450 PRINT#1,"For example, Y";CHR$(8);"= is created by sending Y BS = to the printer,"
460 PRINT#1,"^";CHR$(8);"| by sending ^ BS | and, v";CHR$(8);"| by the string v BS |"
900 PRINT#1,CHR$(12);ESC$;"@";
910 CLOSE #1
920 SYSTEM
999 END